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*eF ILE**1D**DISPATCH 
DDDDDDDD Lilill SSSSSSSS PPPPPPPP AAAAAA TTTTTTITITT cccccccc =H HH 
DDDDDDDD 111i] SSSSSSSS PPPPPPPP AAAAAA TITTTTTTTT cccccccc =H HH 
dD dD I] S$ PP PP AA AA TT cc HH HH 
dD DD I] SS PP PP AA an TT cCc HH HH 
DD dD I] SS PP AA Aa TT cc HH HH 
DD dD I] $s PP PP AA AA TT cc HH HH 
DD dD I] SSSSSS PPPPPPPP AL AA TT cc HHHHHHHHHH 
DD dD I] SSSSSS PPPPPPPP AL AR TT cc HHHHHHHHHH 
DD DD I] SS PP AAAAAAAAAA TT cc HH HH 
0D DD I] SS PP AAAAAAAAAA TT cc HH HH 
dD DD I] SS PP aa Aa TT cc HH HH eoee 
DD DD I] SS PP An as TT cc HH HH eoee 
DDDDODDD atl SSSSSSSS PP Aa Aa TT cccccccc HH HH eees 
DDDDDDDD Hii! SSSSSSSS PP AL ag TT cccccccc =H HH eee 
LL T1111] SSSSSSSS 
LL 1111 SSSSSSSS 
LL I] SS 
LL I] SS 
ut I] SS 
LL Il SS 
LL I] SSSSSS 
LL I] SSSSSS 
LL I] $$ 
LL I] SS 
LL II SS 
LL I] Ss 
LELLLLLLLLE III] SSSSSSSS 
LLELLLLLLLL HII SSSSSSSS 
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completion AST 
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COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


:* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
7* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
:* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
:* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
:* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
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THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
eeePORAt itn NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


SAAR AEAAA AAA AAEAAAEAAAAAAAAAAAAAAAAAAARAAAAAAAARAAARAARARAAAAARAEAAATAAEEE 


FACILITY: F11B xQP 


ABSTRACT: 

This module contains the initialization code for the xQP 
and the dispatch routine which starts the thread 

of execution for each XQP request. 


ENVIRONMENT: Kernel mode, AST Level 


AUTHOR: Christian Saether . CREATION DATE: 30-July-1982 
MODIFIED BY: 


v03-010 ACG0438 Andrew C. Goldstein 2-Aug-1984 22:50 
Don't clear caches when releasing blocking Lock 


v03-009 CDS0008 Christian D. Saether 15-Jul-1984 
Also Randie subfunction cpu and page faults which 
CDS0007 neglected. 


v03-008 CDS0007 Christian D. Saether 11-Apr-7984 
seve ond restore cpu and page fault info during 
stalls. 
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v03-007 ACG0408 Andrew C. Goldstein, 23-Mar-1984 14:02 
Make impure storage fully based 
v03-006 CDS0006 Christian D. Saether 15-Dec-1983 


Fix broken references to C ° 
oad COMMON base register before calling DISPATCHER. 
lay games with our CCB in the routines here. 


POEOCAAOOUM 


ther 
Add deletion deferral interlock using PCB$B_DPC. 


: v03-005 cps0005 Christian D. Saether 17-Oct-1983 
H Last one out after requests are blocked needs 
; to invalidate FID and extent caches. 
; V03-004 CDS0004 Christian D. Saether 11-Oct-1983 
r Add routines to test for blocking of file system 
: activity. 
; v03-003 CDS0003 Christian D. Saether 11-Mar-1983 
; INSQUE the irp onto the rap .queug here at kernel 
3 ast level instead of in the ipl 2 exe$qxaqppkt routine. 
5 This avoids a problem where the irp is dequeuved from 
8 the xap_queue before the ast is delivered. 

0 : v03-002 cps0002 Christian D. Saether 31-Jan-1983 
; Save registers an initial call to DISPATCH. 
; v03-001 ¢ps0001 C Sae 21-0c t-1982 
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> INCLUDE FILES: 
; SCCBDEF 
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-SBTTL INITXOQP 


ait 
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FUNCTIONA DESCRIPTION 
Cal ne time initialization routine. This must be the first 
Location n the XQP image as it is jumped to from the xQP Loading 


CALLING SEQUENCE 

JMP IN! TXQP 
SIDE EFFECTS 

XQP is initialized. 


-PSECT SCODES,NOWRT,EXE,LONG 
INITXQ 


— 2 > —» — > —  —s —_» —» _ as _ 2s bd ss 1 
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"Semen. $s ROUTIN = INIT_FCP ; Do initialization. 


; Exit 
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FUNCTIONAL DESCRIPTION: 
Switch to XQP kernel stack, load impure context base address, 
call main dispatch routine, reset stack on return. 


CALLING SEQUENCE: 
BSB SCHSQAST ASTADR = DISPATCH ASTPRM = IRP 
INPUT epg 


(AP) = ast parameter is the address of the irp to be processed. 

IMPLICIT INPUTS: 

NONE 
OUTPUT PARAMETERS: 

NONE 
IMPLICIT OUTPUTS: 

NONE 
COMPLETION CODES: 

NONE 


SIDE EFFECTS: 
XQP request is processed 


DNMMMVOOOCOCOCOCOCCOCOCOOCoOoOoO 


5A 00000000'°9F  00000000'8F SUBL3 #XQP_QUEUE,aMCTLS$GL_F11BxXQP.R10 ; Set up base register 
50 04 AC 00 4CAP), Pick up irp address. 
1  0004'C 9E MOVAB W*XQP_QUEUVE+4(R10), R1 Get address of work queue. 
00681 60 0 INSQUE IRPSL_IOQFL(RO), a(R1) Insert onto tail of queue, 
0000'CA D TSTL  W*I0_PACKET(R105 Is a request currently being 


rocessed? 


LAPOPOIROINRG — tt 9 St St Ss Ss Ss SS Ss Ss SS SS SS Ss Ss Ss SS SS Ss st St 


a ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ey 
CODD 0909 Sy NINN NS NN DDD DDD DD DD TU Be BS BS BB EE PANINI NII 


WO OOO NAUE WIN 0 OD NA UE WIN @ OOO NAUE WIN @ CO OO NAUE WN OOONOAUN SE Wh OOOn 
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F 
F BEQL 10$ QL no, so continue. 
1 RET Return, 
DISPATCHER starts this request 
when previous threads end. 
50 00000000'GF b0 10$: MOVL G*SCHSGL_CURPCB, RO Get our PCB address. 
2A A0 96 ; INCB PCB$B_DPC(RO) Disallow process deletion. 
50 O000°CA 00 C MOVL W*I0_CCB(R10), RO : Get address of our CCB. 

AO O01 90 41 MOVB 1, case 6 (RO) - Make it a kernel channel. 
0000°CA ‘GF OD 45 MOVL G*CTLSAL_STACK, W°PREV_STKLIM(R10) ; zeve current stack base 
0004°CA +. & ri MOVL G*CTLSAL STaces If W*PREV_STKLIM+4(R10) ; Save current stack Limit 

A D «OD 5 MOVL P, W*PREV_FP(R 0s : Save current frame pointer 
siaee's td "CA OD 26 MOVL W*XQP_STKLTM(R10), G*CTLSAL_STACK ; Set new stack base 
onemmeadt "CA OD 6 MOVL W*XOP"STKLIM+4 (R10) G*CTLSAL_STACKLIM ; Set new stack Limit 

E O'CA D * MOVL W*XQPTSTKLIM(R10), SP ; Set new stack pointer 
OO0000000"EF 00 FB 7 CALLS #0, DISPATCHER : Call main dispatch routine 


PATCH.MAR; 1 (3) 


DISPATCH = KQP dispatch routine 15-SEP-1984 23:42:21 VAX/VMS Macro Vv04-00 Page 
Mba 008 DISPATCH , ant et TPE EP tiX SRC DISPATCH.MAR;1 . (3) 
188 ; 
1 g: ; Note that at this point the FP was restored from tne first call 
1 ; frame on the private stack. If this thread stalled for any reason 
1 3 ; that FP doesn’t make any sense as it points back to a frame on the 
! ; real stack that doesn't exist anymore. 
191 ° 
stash 135 MOVL W*PREV_STKLIM(R10), G*CTL STACK ; Restore stack base 
“GF 19 MOVL  W*PREVISTKLIM+4(R10), G*C 3 =STACKLIM ; Restore stack Limit 
fA 132 MOVL W*PREV_FP(R10), FP : Restore frame pointer 
50 ences 19 MOVL G*SCHSGL_CURPCB, RO ; Get our PCB address. 
139 DECB PCB$B_DPT(RO) ; Allow deletion again. 
50 199 MOVL y 10 CCB(R10), RO ; Get our CCB address again. 
90 MNEGB , CCBSB_AMOD (RO) 3; Make it untouchable. 
8g RET 3: Exit. 
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~SBTTL WAIT _FOR_AST = Exit current AST to await completion AST 
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FUNCTIONAL ae tgs 
Switch back to the real kernel stack tnd ~- a yr ivete stack 
and execute a return to dismiss he curre 
This is paired with the CONTINUE THREAD ae which is specified 
as the completion AST for the service awaited. 


CALLING SEQUENCE: 
CALLS #0, WAIT _FOR_AST 


IMPLICIT INPUTS: 
PREV_STKLIM [2] = previous kernel stack Limits 
PREV_FP = previous kernel stack frame petacer 
FP ="current FP on private kernel stac 


wwursi’ By te he 
AVFP = current FP on gitey kernel stack 
CTSA STACK = kernel stack base 
CTLSAL™ _STACKLIM = kernel stack Limit 


: This routine expects to be currently operating on the private 
XQP kernel stack and is called from kernel mode. 
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Pat WAIT_FOR_AST,“M<R2,R3,R4,R5,R6,R7,R8,RI,R11> 


50 0000°CA 00 O0A7 W*IO~CCBTRI0S, RO : Get our CCB address. 
09 AO) O01. lsé*#8B OAC at #1, CcBsB AMOb (RO) : Make it untouchable. 
50 00000000'GF o0 9080 MOVL ger TLSGL RO Get process header. 
0000'CA 38 AO 0000'CA C yt SUBS U*PRS TNC. CPUCRTO). PHDSL _ceurint MCRD)» Tats FNC. ag dg 
u 
0000'°CA 4C AO 0000'CA c3 doco SUBL3 W*PMS_FNC_PFA(R10), PHDSL -PAGEFLTS (RO) oo Ane PFAC(R10) 
eTau 
0000'CA 38 A0 O000°CA C3 tt) SUBL3 W*PMS_SUB_CPU(R10), PHDSL_ cPUTiMeh . as SUB_CPU(R10) 


“Sto u umulated so far. 

SUBL3 W*PMS_SUB_PFA(R10), PHDSi -PAGEFLT (RO). “UPS. SUB _PFA(R10) 

: tore pagefaults so far. 
MOVL W*xXQP_SAVFP(R10) Save current FP. 
MOVL U"bREV- STRLIM(RIO) G*cTiSaL STACK ; Restore previous kernel stack b 
MOVL W*PREVSTKLIM+4(R R10), G-CTLSAL _STACKLIM ; Restore prev krn stack Lim 
MOVL W*PREV_FP(R10), F : Restore previous kernel 
RET 3; Exit from current AST. 


OO00"CA 4C AO O000'CA C3 00D 
0000'°CA 5D 00 00DB 
*GF 00°CA 


G000°CA D0 00E 
00000000'GF 0004'CA D0 00E 
5D 0000"CA 0 OF 
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00000004 Bae 
OFFC F 
oA AC 00 F 
*CA ‘GF OD F 
0004'CA ¢f ] 0 
0000°CA D «OD 1 
s'a'ea'ea's Hd QOOO0'CA 0D 1 
¢f 4*CA OD 1 
D D 
0 . D 
0000°CA 8 AO QO00'CA C 
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5 0000°CA 4 
09 AO (01 
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~SBTTL CONTINUE_THREAD = Resume thread of execution from completion AST 


e 
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; FUNCTIONAL DESCRIPTION: 

; his routine complements the above WAIT_FOR_AST routine. It is 
specified as the completion AST for Q10 or Other services which 

must wait for some event. It resets the kernel stack Limits to 
the XQP private kernel stack and restores the saved frame pointer. 
st then returns to resume execution of the request at the point 
Oollowing the WAIT_FOR_AST call. 


; CALLING SEQUENCE: 
: ASTADR = CONTINUE_THREAD 


K = current kernel stack base 
CTLSAL STACK, M- current kernel stack Limit 
XQP_STRLIM C2] - private kernel stack Limits 
P_SAVFP = saved frame pointer from private kernel stack 
FP = current frame pointer on kernel stack 


; IMPLICIT OUTPUTS: 

: PREV_STKLIM (2] - saved Limits of kernel stack on entry 
V_FP = saved kernel stack frame pointer on entry 

CTLSAL_STACK = set to base of private kernel stack 

CTLSAL_STACKLIM = set to private kernel stack Limit 

FP = set to saved FP on private kernel stack 
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ASTPARAM = 4 


-ENTRY CONTINUE THREAD, “M<R2,R3,R4,R5,R6,R7,R8,R9,R10,R11> 
MOVL ASTPARAMTAP 3 

L G*CTLSAL_STACK, W*PREV_STKLIM(R10) ; Save current kernel stack base 
rout SCT 


MOVL  W*XQP™STKLIM+4(R10), G*CTL 
MOVL W2XQPeSAVEP(RIO), FP = s:- Restore private kern stack frame ptr 


header. 
W*PMS_FNC_CPU(R10) 


; Restore adjusted cpu time. 
SUBL3 W*PMS_FNC_PFA(R10), PHDSL_PAGEFLTS(RO), W*PM sFNC PFACRIOD 

; Restore adjusted page faults. 
SUBL3 W*PMS_SUB_CPU(R10), PHDSL_CPUTIM(RO), W*PMS_SUB_CPU(R10) 

re adjusted cpu time. 
y), W*PMS_SUB_PFA(R10) 
; Restore edjusted page faults. 
MOVL W*10_CCB(R10), RO ; Get our CCB address. 
MOVB #i, CCB$B_AMOD (RO) ; Make it a useable kernel channel. 
T ; Return to stalled thread 
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-SBTTL START REQUEST = test for blocking and raise activity count 
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vou START 
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4 54+ 
START_REQUEST:: 


50 O000°CA 00 VL W*CURRENT_VCB(R10), RO ; get vcb addr 
SETIPL 2 3; raise ipl to test activity 
OE AO ’ TSTW y BSW_RVN (RO) ; is this volume set? 
14 BNEQ $ ; NEQ it is a volume set. 
008C 9 i) 1 TSTL BSL_BLOCKID (RO) 3; is block lock alresdy armed? 
1 1 BEQL ; EQL it isn't 
5 OpA0 §8 E 1 BLBC ycesu ACTIVITY (RO), 308 
OOA0 C 2 Ao 1 ADDW2 , VCBSW_ACTIVITY (RO? 
15 5$ SETIPL 
05 : -RSB 
18 ; 
19 ; volume set 
$f AO 10$: MOVL VCBSL_RVT (RO), RO 
4 AO RVTSL_ BLOCKID (RO) 
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—OOWMo 


OA 
06 06 A 
06 AO ? 


wait for blocking lock to be granted and rearm if it isn't already. 


eee Td 


0$: #0 
#0, BLOCK_WAIT 
START REQUEST 


IPL$_SYNCH : can't page at synch 
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vb FINISH REGUEST <’Lewes activity count, ¢ Sasepoione Oiiitice EPTINTencdsiepacenegan:? OM 8, 
ty ; -SBTTL FINISH_REQUEST = lower activity count, check activity allowed 


~ 
rf: FINISH_REQUEST:: 
MO 
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51 O000°CA 00 4 ‘ * W*CURRENT_VCB(R10), R1 
OF Al 2B 4 TSTW BSW_RVN (R1) 
9 1 4 BNEQ 208 
0049 3} A 4 SUBW2 VCBSW_ACTIVITY (R1) 
12 OOAO C1 «OCC BLBC vost ACTIVITY (R1), 40$ 
10S: SETIPL 
05 ; RSB 
7 : 
34 : volume set 
50 20A1 00 58 20$: MOVL vcs RVT (R1), RO 
06 AO 02 59 SUBW2 RUTSW_ACTIVITY (RO) 
FO 06 Ag : 60 BLBS mvisu ACTIVITY (RO), 10$ 
1 2 BEQL 
a $8 40$:  BNEQ 108 
64 SETIPL #0 
50 008C C1 9 65 VAB  VCBSL_BLOCKID (R1), RO 


e 


68 ; Saly one process can see the count go to zero. 
69 ; RO = address of either vcb or rvt blockid field. 


70 
71 
a; 100$: MOVL (RO), R1 
7 CLRL (RO) 
DD 74 PUSHL R1 
0000° CF F 75 CALLS #1,W*DEQ_LOCK 
0 7 RSB 
7 
ue 3 
79 ; This is a volume set. 
80 ; RO = RVT. 


110$: SETIPL 


#0 
50 24 A0 9% MOVAB RVTSL_BLOCKID (RO), RO 
EA 11 BRB 100$ 


00000008 50$: -LONG IPL$_SYNCH 
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END 
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! Performance indicators ! 


bow renner ee se wee en ee memes 


Psect synopsis output 1 
Cross-reference output 8 
Assembler run totals 56 


Tee york ing set Limit was 1350 pa 
55 bytes (109 pages) of virtua eenery were used to buffer the intermediate code. 
There were 60 pages of symbol table , epece olloces d to hold 1072 
90 source Lines were read in Pass 1, producing § object records in Pass 2. 
19 pages of virtual memory were used t> define 18 macros. 


Phase Page faults CPU Time Elapsed Time 
ol | ae 08:00:00.4 
309 : . :00: -0¢ 
tog table sort 22 : : 1. , . “2 
Symbol table output -07 ° 


99:00:98 89:00:90.9 
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! Macro iibrary statistics ! 


tee wee ee meme een ee em ees meena} 


Macros defined 


Macro Library name 


~$52? sounds: Fevs. -OBJJLIB.MLB; 1 “10 
“$25 SYSLIBJSTARLET. MLB; 2 5 
Torin (all Libraries) 15 


1155 GETS were required to define 15 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=L1IS$:DISPATCH/OBJ=OBJ$:DISPATCH MSRC$:DISPATCH/UPDATE=(ENHS$: DISPATCH) +EXECMLS$/LIB 


non-local and 11 Local symbols. 


AX/VMS Macro v04-00 
FIIX.SRCIDISPATCH.MAR; 1 
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